home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
boost4.arc
/
SUBWORD.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-10-23
|
577b
|
29 lines
program sword;
{ Exercises in using Boosters' word functions }
uses BOSHARE,crt;
var s : string;
i : integer;
begin
Writeln('Finding string subsets using Boosters'' Subword');
Writeln;
s := ' 1 2 3 4 5 6';
writeln(s);
for i := 0 to 7 do begin
writeln( subword(s,i,6) );
writeln( wordind(s,5) );
readln;
end;
s := 'These are the good old days . . .';
writeln(s);
for i := 1 to words(s) do begin
writeln( subword(s,i,words(s)) );
writeln( wordind(s,i) );
readln;
end;
end.